Software of the Month Club 1998 July/Software of the Month Club 1998 July.iso/pc/EDU/sc41eng/STARCALC.EXE/0/RCDATA/TPARAMFORM/TPARAMFORM.txt

Text File | 1998-02-22 | 18KB | 778 lines

object ParamForm: TParamForm
  Left = 222
  Top = 198
  BorderStyle = bsDialog
  Caption = 'Options'
  ClientHeight = 223
  ClientWidth = 372
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = ActivateForm
  OnCreate = CreateWork
  PixelsPerInch = 96
  TextHeight = 13
  object OkBtn: TButton
    Left = 72
    Top = 192
    Width = 97
    Height = 22
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = OkBtnClick
  end
  object ExitBtn: TButton
    Left = 208
    Top = 192
    Width = 99
    Height = 22
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 2
    OnClick = ExitBtnClick
  end
  object ParamPageControl: TPageControl
    Left = 5
    Top = 8
    Width = 361
    Height = 177
    ActivePage = SkyPosit
    TabOrder = 0
    object SkyPosit: TTabSheet
      Caption = 'Location'
      object GroupBox2: TGroupBox
        Left = 36
        Top = 0
        Width = 273
        Height = 47
        Caption = ' Longitude: '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object WestLong: TRadioButton
          Left = 39
          Top = 28
          Width = 50
          Height = 17
          Caption = 'West'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object EastLong: TRadioButton
          Left = 39
          Top = 12
          Width = 49
          Height = 17
          Caption = 'East'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TabStop = True
        end
        object Longitude: TEdit
          Left = 92
          Top = 17
          Width = 121
          Height = 21
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object LongitudeGMS: TButton
          Left = 220
          Top = 17
          Width = 17
          Height = 21
          Caption = 'd'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 3
          OnClick = LongitudeGMSClick
        end
      end
      object GroupBox3: TGroupBox
        Left = 36
        Top = 47
        Width = 273
        Height = 47
        Caption = ' Latitude: '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Latitude: TEdit
          Left = 92
          Top = 17
          Width = 121
          Height = 21
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object LatitudeGMS: TButton
          Left = 220
          Top = 17
          Width = 17
          Height = 21
          Caption = 'd'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 3
          OnClick = LatitudeGMSClick
        end
        object NorthLat: TRadioButton
          Left = 39
          Top = 12
          Width = 49
          Height = 17
          Caption = 'North'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TabStop = True
        end
        object SouthLat: TRadioButton
          Left = 39
          Top = 28
          Width = 50
          Height = 17
          Caption = 'South'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
      end
      object GroupBox4: TGroupBox
        Left = 36
        Top = 94
        Width = 165
        Height = 54
        Caption = ' Time zone: '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object TimeZone: TEdit
          Left = 8
          Top = 13
          Width = 33
          Height = 21
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 5
          ParentFont = False
          TabOrder = 0
        end
        object AutoTimeZone: TCheckBox
          Left = 8
          Top = 35
          Width = 145
          Height = 17
          Caption = 'Take from Windows'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = AutoTimeZoneClick
        end
        object TimeZoneType: TComboBox
          Left = 48
          Top = 13
          Width = 110
          Height = 21
          Style = csDropDownList
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'Behind of G.M.T.'
            'Ahead of G.M.T.')
          ParentFont = False
          TabOrder = 1
        end
      end
      object Button1: TButton
        Left = 204
        Top = 115
        Width = 104
        Height = 21
        Caption = '&List of cities'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = Button1Click
      end
    end
    object DateTimeSet: TTabSheet
      Caption = 'Date and time'
      object Label4: TLabel
        Left = 112
        Top = 10
        Width = 127
        Height = 13
        Caption = 'Observation moment:'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 45
        Top = 35
        Width = 96
        Height = 13
        Caption = 'Day, month, year:'
      end
      object Label6: TLabel
        Left = 45
        Top = 68
        Width = 124
        Height = 13
        Caption = 'Hours, minuties, seconds:'
      end
      object Label7: TLabel
        Left = 128
        Top = 92
        Width = 91
        Height = 13
        Caption = 'Rotation time step:'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 45
        Top = 116
        Width = 124
        Height = 13
        Caption = 'Hours, minuties, seconds:'
      end
      object Day: TEdit
        Left = 156
        Top = 31
        Width = 20
        Height = 21
        MaxLength = 2
        TabOrder = 0
        Text = '15'
        OnExit = DayExit
      end
      object Month: TEdit
        Left = 194
        Top = 32
        Width = 20
        Height = 21
        MaxLength = 2
        TabOrder = 2
        Text = '2'
        OnExit = MonthExit
      end
      object Year: TEdit
        Left = 232
        Top = 32
        Width = 33
        Height = 21
        MaxLength = 4
        TabOrder = 4
        Text = '1997'
        OnExit = YearExit
      end
      object Hour: TEdit
        Left = 194
        Top = 64
        Width = 20
        Height = 21
        MaxLength = 2
        TabOrder = 6
        Text = '12'
      end
      object Min: TEdit
        Left = 232
        Top = 64
        Width = 20
        Height = 21
        MaxLength = 2
        TabOrder = 8
        Text = '39'
      end
      object Sec: TEdit
        Left = 270
        Top = 64
        Width = 20
        Height = 21
        MaxLength = 2
        TabOrder = 10
        Text = '42'
      end
      object RHour: TEdit
        Left = 194
        Top = 113
        Width = 20
        Height = 21
        MaxLength = 2
        TabOrder = 12
        Text = '0'
      end
      object RMin: TEdit
        Left = 232
        Top = 113
        Width = 20
        Height = 21
        MaxLength = 2
        TabOrder = 14
        Text = '5'
      end
      object RSec: TEdit
        Left = 270
        Top = 113
        Width = 20
        Height = 21
        MaxLength = 2
        TabOrder = 16
        Text = '0'
      end
      object DayUD: TUpDown
        Left = 176
        Top = 31
        Width = 15
        Height = 21
        Associate = Day
        Min = 1
        Max = 31
        Position = 15
        TabOrder = 1
        Thousands = False
        Wrap = True
      end
      object MonthUD: TUpDown
        Left = 214
        Top = 32
        Width = 15
        Height = 21
        Associate = Month
        Min = 1
        Max = 12
        Position = 2
        TabOrder = 3
        Thousands = False
        Wrap = True
        OnClick = MonthUDClick
      end
      object SecUD: TUpDown
        Left = 290
        Top = 64
        Width = 15
        Height = 21
        Associate = Sec
        Min = 0
        Max = 59
        Position = 42
        TabOrder = 11
        Thousands = False
        Wrap = True
      end
      object RHourUD: TUpDown
        Left = 214
        Top = 113
        Width = 15
        Height = 21
        Associate = RHour
        Min = 0
        Max = 48
        Position = 0
        TabOrder = 13
        Thousands = False
        Wrap = True
      end
      object RMinUD: TUpDown
        Left = 252
        Top = 113
        Width = 15
        Height = 21
        Associate = RMin
        Min = 0
        Max = 59
        Position = 5
        TabOrder = 15
        Thousands = False
        Wrap = True
      end
      object RSecUD: TUpDown
        Left = 290
        Top = 113
        Width = 15
        Height = 21
        Associate = RSec
        Min = 0
        Max = 59
        Position = 0
        TabOrder = 17
        Thousands = False
        Wrap = True
      end
      object HourUD: TUpDown
        Left = 214
        Top = 64
        Width = 15
        Height = 21
        Associate = Hour
        Min = 0
        Max = 23
        Position = 12
        TabOrder = 7
        Thousands = False
        Wrap = True
      end
      object MinUD: TUpDown
        Left = 252
        Top = 64
        Width = 15
        Height = 21
        Associate = Min
        Min = 0
        Max = 59
        Position = 39
        TabOrder = 9
        Thousands = False
        Wrap = True
      end
      object YearUD: TUpDown
        Left = 265
        Top = 32
        Width = 15
        Height = 21
        Associate = Year
        Min = -999
        Max = 9999
        Position = 1997
        TabOrder = 5
        Thousands = False
        Wrap = False
        OnChanging = YearUDChanging
        OnClick = YearUDClick
      end
    end
    object FontSet: TTabSheet
      Caption = 'Fonts'
      object Label9: TLabel
        Left = 32
        Top = 36
        Width = 73
        Height = 13
        Caption = 'Normal text:'
      end
      object Label10: TLabel
        Left = 32
        Top = 92
        Width = 89
        Height = 13
        Caption = 'Greek symbols:'
      end
      object NormFontsCB: TComboBox
        Left = 152
        Top = 32
        Width = 161
        Height = 21
        ItemHeight = 0
        Sorted = True
        TabOrder = 0
      end
      object GreekFontsCB: TComboBox
        Left = 152
        Top = 88
        Width = 161
        Height = 21
        ItemHeight = 0
        Sorted = True
        TabOrder = 1
      end
    end
    object ViewObj: TTabSheet
      Caption = 'Objects'
      object GroupBox1: TGroupBox
        Left = 27
        Top = 22
        Width = 297
        Height = 100
        Caption = ' Object groups: '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label11: TLabel
          Left = 187
          Top = 52
          Width = 86
          Height = 13
          Caption = 'star clusters'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 187
          Top = 81
          Width = 44
          Height = 13
          Caption = 'objects'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object StarsDraw: TCheckBox
          Left = 13
          Top = 16
          Width = 65
          Height = 17
          Caption = 'Stars'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object BoundDraw: TCheckBox
          Left = 13
          Top = 76
          Width = 148
          Height = 17
          Caption = 'Constellation boundaries'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object ConNamesDraw: TCheckBox
          Left = 13
          Top = 56
          Width = 140
          Height = 17
          Caption = 'Constellation names'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object AddObjDraw: TCheckBox
          Left = 168
          Top = 66
          Width = 113
          Height = 17
          Caption = 'Additional objects'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
        end
        object ClinesDraw: TCheckBox
          Left = 13
          Top = 36
          Width = 124
          Height = 17
          Caption = 'Constellation lines'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object DeepSkyDraw: TCheckBox
          Left = 168
          Top = 38
          Width = 121
          Height = 17
          Caption = 'Galaxies, nebulae,'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
        end
        object SolarObjDraw: TCheckBox
          Left = 168
          Top = 16
          Width = 121
          Height = 17
          Caption = 'Solar system objects'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
      end
    end
    object Other: TTabSheet
      Caption = 'Other'
      object ChangeColorCB: TCheckBox
        Left = 44
        Top = 104
        Width = 257
        Height = 17
        Caption = 'Change background color during sunset/sunrise'
        TabOrder = 2
      end
      object GroupBox5: TGroupBox
        Left = 5
        Top = 16
        Width = 169
        Height = 65
        Caption = ' Sky projection: '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object PlanProjection: TRadioButton
          Left = 11
          Top = 16
          Width = 73
          Height = 17
          Caption = '"Flat"'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object ConicalProjection: TRadioButton
          Left = 11
          Top = 32
          Width = 81
          Height = 17
          Caption = '"Conic"'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TabStop = True
        end
      end
      object GroupBox6: TGroupBox
        Left = 178
        Top = 16
        Width = 169
        Height = 65
        Caption = ' Labels of bright stars: '
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Label1: TLabel
          Left = 29
          Top = 48
          Width = 46
          Height = 13
          Caption = 'HR labels'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object PropStarNames: TRadioButton
          Left = 11
          Top = 16
          Width = 129
          Height = 17
          Caption = 'Proper names'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object NormStarNames: TRadioButton
          Left = 11
          Top = 32
          Width = 137
          Height = 17
          Caption = 'Bayer, Flamsteed,'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TabStop = True
        end
      end
    end
  end
end